home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jedit_checkpoint.tcl < prev    next >
Encoding:
Text File  |  1995-02-08  |  2.5 KB  |  78 lines
  1. # jedit_checkpoint.tcl - undo and redo support for jedit
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # save current state in undo ring
  9. #   { t args } lets it be used with j:tkb:mkmap
  10. ######################################################################
  11.  
  12. proc jedit:cmd:save_checkpoint { t args } {
  13.   global CKPT_TEXT CKPT_ANNO JEDIT_PREFS UNDOPTR
  14.  
  15.   if $JEDIT_PREFS(undolevels) {
  16.     set CKPT_TEXT($UNDOPTR) [$t get 1.0 end]
  17.     set CKPT_ANNO($UNDOPTR) [j:tag:get_annotation $t]
  18.     incr UNDOPTR
  19.     set old [expr {$UNDOPTR - $JEDIT_PREFS(undolevels)}]
  20.     catch {
  21.       unset CKPT_TEXT($old)            ;# forget a previous checkpoint
  22.       unset CKPT_ANNO($old)
  23.     }
  24.   } else {
  25.     j:alert -text "You don't have undo turned on."
  26.   }
  27. }
  28.  
  29. ######################################################################
  30. # jedit:cmd:undo - restore from saved state (moving backwards in undo ring)
  31. #   { t args } lets it be used with j:tkb:mkmap
  32. ######################################################################
  33.  
  34. proc jedit:cmd:undo { t args } {
  35.   global CKPT_TEXT CKPT_ANNO JEDIT_PREFS UNDOPTR
  36.  
  37.   if $JEDIT_PREFS(undolevels) {
  38.     set CKPT_TEXT($UNDOPTR) [$t get 1.0 end]
  39.     set CKPT_ANNO($UNDOPTR) [j:tag:get_annotation $t]
  40.     incr UNDOPTR -1
  41.     if {![info exists CKPT_TEXT($UNDOPTR)]} {
  42.       incr UNDOPTR
  43.       j:alert -text "No more undo information available."
  44.     }
  45.     $t delete 1.0 end
  46.     $t insert end $CKPT_TEXT($UNDOPTR)
  47.     j:tag:set_annotation $t $CKPT_ANNO($UNDOPTR)
  48.     $t yview -pickplace insert
  49.   } else {
  50.     j:alert -text "You aren't saving any undo information."
  51.   }
  52. }
  53.  
  54. ######################################################################
  55. # restore from saved state (moving forwards in undo ring)
  56. #   { t args } lets it be used with j:tkb:mkmap
  57. ######################################################################
  58.  
  59. proc jedit:cmd:redo { t args } {
  60.   global CKPT_TEXT CKPT_ANNO JEDIT_PREFS UNDOPTR
  61.  
  62.   if $JEDIT_PREFS(undolevels) {
  63.     set CKPT_TEXT($UNDOPTR) [$t get 1.0 end]
  64.     set CKPT_ANNO($UNDOPTR) [j:tag:get_annotation $t]
  65.     incr UNDOPTR
  66.     if {![info exists CKPT_TEXT($UNDOPTR)]} {
  67.       incr UNDOPTR -1
  68.       j:alert -text "No more redo information available."
  69.     }
  70.     $t delete 1.0 end
  71.     $t insert end $CKPT_TEXT($UNDOPTR)
  72.     j:tag:set_annotation $t $CKPT_ANNO($UNDOPTR)
  73.     $t yview -pickplace insert
  74.   } else {
  75.     j:alert -text "You aren't saving any undo information."
  76.   }
  77. }
  78.